!
! Tioga is a library for overset grid assembly on parallel distributed systems
! Copyright (C) 2015 Jay Sitaraman
!
!
!     Create a unstructured grid partition
!     composed of prizm layers on a sphere and 
!     a Cartesian that overlaps it 
!
!     J. Sitaraman
!     04/18/2011
!
!     This code is not well commented and written
!     in partial f90 style.
!     Use with caution.
!     
!     begin main program
!
!       对于 fortran 来说 id 也是从 0开始
      program buildGrid

        ! use volumeData
        include 'mpif.h'
  !
  !     local variables
  !a
        character*128 fname
        integer :: myid,ierr,numprocs
        real*8  :: xlo(3),xhi(3),dx(3), a
  
        namelist/inputs/nlayers,wallSpacing,outerSpacing,outerB,xlo,xhi,dx
  
        call mpi_init(ierr)
        call mpi_comm_rank(mpi_comm_world,myid,ierr)
        call mpi_comm_size(mpi_comm_world,numprocs,ierr)
  
        write(*,*) "myid = ", myid
        call mpi_finalize(ierr)
  !         
        a = 4.4
        write(*,*) nint(a)
        end
  !
  !     
  !     read face information
  !
  !
        